home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / libedt.src < prev    next >
Text File  |  1990-10-09  |  727b  |  20 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ Author: ?
  3. @ Library Editor
  4. \<< 0 0 0 \-> LN NL K
  5.   \<< CLLCD "Which port {0-2} holds your library?" ":" INPUT ":" + CLLCD
  6.     "Library name:" { \Ga } INPUT + DUP 'LN' STO OBJ\-> RCL -62 SF -63 CF
  7.     \<< CONT
  8.     \>> 91.1 ASN TEXT "Edit library, press ON to continue" PROMPT NEWOB 'NL'
  9.       STO CLLCD { ABORT "" "" CONT } TMENU "<A>bort or <C>ontinue " 0 DISP
  10.     DO -1 WAIT
  11.     UNTIL IP DUP 11 == SWAP DUP SWAP DUP 13 == SWAP 'K' STO OR
  12.     END K
  13.     IF 11 ==
  14.     THEN CLLCD 0 MENU -62 CF "LIBEDT aborted" 0 DISP 440 1 BEEP 880 1 BEEP 1760
  15.       1 BEEP KILL
  16.     END LN OBJ\-> PURGE 'NL' RCL LN OBJ\-> STO -62 CF CLLCD 0 MENU
  17.       "LIBEDT complete" 0 DISP 880 2 BEEP 1 WAIT
  18.   \>>
  19. \>>
  20.